home *** CD-ROM | disk | FTP | other *** search
/ Micro Dingo Especial Manga 1 / Micro Dingo Especial Manga 01 CD.iso / cd dingo / dingosexo / hentai / juegos / 06.swf / scripts / frame_143 / DoAction.as
Text File  |  2003-01-22  |  946b  |  48 lines
  1. contador = "1";
  2. while(contador < "101")
  3. {
  4.    movimiento = "0";
  5.    fil = int((ficha_libre - "1") / "4");
  6.    col = ficha_libre - fil * "4";
  7.    fil += "1";
  8.    aleatorio = int(random("4")) + "1";
  9.    if(aleatorio == "1")
  10.    {
  11.       if("1" < fil)
  12.       {
  13.          fil -= "1";
  14.          movimiento = "1";
  15.       }
  16.    }
  17.    else if(aleatorio == "2")
  18.    {
  19.       if(col < "4")
  20.       {
  21.          col += "1";
  22.          movimiento = "1";
  23.       }
  24.    }
  25.    else if(aleatorio == "3")
  26.    {
  27.       if(fil < "4")
  28.       {
  29.          fil += "1";
  30.          movimiento = "1";
  31.       }
  32.    }
  33.    else if("1" < col)
  34.    {
  35.       col -= "1";
  36.       movimiento = "1";
  37.    }
  38.    if(movimiento == "1")
  39.    {
  40.       ficha_cambio = (fila_cambio - "1") * "4" + col_cambio;
  41.       nombre_cambio = "ficha" add ficha_cambio;
  42.       inter = eval(nombre_cambio);
  43.       set(nombre_cambio,ficha_libre);
  44.       ficha_libre = inter;
  45.       contador += "1";
  46.    }
  47. }
  48.